home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 September & October / rerun-1988-09-10a.d64 / page lister (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  43 lines
  1. 0 rem page lister - john ryan
  2. 10 fort=49152 to 49848:read d:poke t,d:x=x+d:next
  3. 20 if x<>88770 then print "error in data statements":end
  4. 30 print"[147] press restore to activate page lister.":sys 49152:new
  5. 40 data 120,169,26,141,2,128,169,192,141,3,128,162,0,189,179,194,157,4
  6. 50 data 128,232,224,5,208,245,88,96,104,168,104,170,104,88,32,234,255,32
  7. 60 data 225,255,208,3,76,102,254,169,1,133,204,32,171,192,32,99,192,144
  8. 70 data 10,169,157,160,194,32,30,171,76,84,193,169,0,141,116,194,141,117
  9. 80 data 194,141,113,194,169,147,32,210,255,162,0,160,1,24,32,240,255,169
  10. 90 data 118,160,194,32,30,171,76,250,192,160,0,177,169,240,2,24,96,200
  11. 100 data 177,169,240,2,24,96,56,96,24,165,155,105,40,133,155,165,156,105,0
  12. 110 data 133,156,96,56,165,155,233,40,133,155,165,156,233,0,133,156,96,230
  13. 120 data 169,208,2,230,170,96,162,0,169,32,157,0,4,157,0,5,157,0,6,157,0,7
  14. 130 data 232,208,241,96,165,43,133,169,165,44,133,170,96,56,165,45,233,3
  15. 140 data 141,167,2,165,46,233,0,141,168,2,56,165,169,237,167,2,141,169,2
  16. 150 data 165,170,237,168,2,13,169,2,240,4,176,2,24,96,56,96,174,116,194
  17. 160 data 165,169,157,184,194,232,165,170,157,184,194,232,142,116,194,96,24
  18. 170 data 174,114,194,172,115,194,32,240,255,96,32,228,255,240,251,201,133
  19. 180 data 208,28,32,151,192,32,220,192,173,113,194,240,8,169,0,141,113,194
  20. 190 data 141,117,194,32,97,193,238,117,194,76,250,192,201,134,208,45,173
  21. 200 data 117,194,201,2,144,208,174,116,194,202,202,142,116,194,202,202,189
  22. 210 data 184,194,133,169,232,189,184,194,133,170,32,151,192,32,97,193,206
  23. 220 data 117,194,169,0,141,113,194,76,250,192,201,136,208,3,76,123,227,201
  24. 230 data 135,208,159,32,19,194,76,250,192,162,0,142,114,194,160,0,140,115
  25. 240 data 194,32,239,192,32,144,192,32,144,192,160,0,177,169,170,200,177
  26. 250 data 169,32,205,189,169,32,32,210,255,32,144,192,32,144,192,160,0,177
  27. 260 data 169,240,40,16,6,32,220,193,76,178,193,201,34,208,19,32,210,255,32
  28. 270 data 144,192,160,0,177,169,240,16,201,34,240,3,76,156,193,32,210,255
  29. 280 data 32,144,192,76,138,193,32,144,192,56,32,240,255,232,142,114,194,32
  30. 290 data 180,192,144,9,32,171,192,169,1,141,113,194,96,173,114,194,201,23
  31. 300 data 176,3,76,107,193,96,56,233,127,170,132,73,160,255,202,240,8,200
  32. 310 data 185,158,160,16,250,48,245,200,185,158,160,141,53,3,48,5,32,71,171
  33. 320 data 208,242,173,53,3,201,163,144,9,201,180,176,5,233,127,76,15,194
  34. 330 data 233,128,32,210,255,96,169,0,141,112,194,133,155,169,4,133,156,32
  35. 340 data 92,194,32,228,255,240,251,201,135,240,64,201,17,208,22,173,112
  36. 350 data 194,201,24,240,236,32,92,194,32,116,192,238,112,194,32,92,194,76
  37. 360 data 33,194,201,145,208,217,173,112,194,240,212,206,112,194,32,92,194
  38. 370 data 32,130,192,32,92,194,76,33,194,160,0,177,155,73,128,145,155,200
  39. 380 data 192,40,208,245,96,32,92,194,76,250,192,0,0,0,0,0,0,80,65,71,69,32
  40. 390 data 76,73,83,84,69,82,32,65,67,84,73,86,65,84,69,68,32,79,78,32,70,85
  41. 400 data 78,67,84,73,79,78,32,75,69,89,83,0,78,79,32,80,82,79,71,82,65,77
  42. 410 data 32,73,78,32,77,69,77,79,82,89,33,0,195,194,205,56,48,0
  43.